home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / geomitri / rcd / cbprint.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-06-10  |  11.7 KB  |  297 lines
  1. 8   '         THIS PROGRAMME PRINTS CONTINUOUS BEAM DESIGN OUTPUT
  2. 9   '
  3. 10  '         SAVE THIS PROGRAMME UNDER THE NAME : "  CBPRINT  "
  4. 5130  H$=STRING$(79,61)
  5. 5135  IF FY<=3000 THEN BRDA$=CHR$(239)+CHR$(8)+CHR$(47) ELSE BRDA$=CHR$(111)+CHR$(8)+CHR$(84)
  6. 5140  IF FYS<=3000 THEN BRDB$=CHR$(239)+CHR$(8)+CHR$(47) ELSE BRDB$=CHR$(111)+CHR$(8)+CHR$(84)
  7. 5142  LPRINT
  8. 5145  LPRINT CHR$(14)"Arabian Consulting Engineering Services"
  9. 5150  LPRINT "P. O. Box  146                                           Riyadh - Saudi Arabia"
  10. 5155  LPRINT H$
  11. 5160  LPRINT CHR$(14)" PROJECT: "PRJ$
  12. 5165  LPRINT
  13. 5170  LPRINT "  BUILDING    : "BLD$ TAB(58)"PAGE No.:"
  14. 5175  LPRINT "  DESIGNED BY : "DSR$ TAB(31)"/ CHECKED BY : "TAB(58)"DATE    : "DATE$
  15. 5180  LPRINT :LPRINT H$
  16. 5185  LPRINT "  RCDESIGN PROGRAM PREPARED BY : Amjad J.El-Sha'ir, P.O.Box 926447 Amman-Jordan"
  17. 5190  LPRINT "  THIS COPY TO BE USED ONLY BY : Arabian Consulting Engineering Services  K.S.A"
  18. 5195  LPRINT H$
  19. 5200  LPRINT CHR$(14) " CONTINUOUS BEAM DESIGN "TAB(29)"B"NMB"-B"NMBL
  20. 5210  LPRINT H$ :LPRINT
  21. 5220  LPRINT CHR$(27)"G";
  22. 5230  LPRINT "  ** CONCRETE & STEEL PROPERTIES **  "
  23. 5240  LPRINT CHR$(27)"H";"  ---------------------------------  "
  24. 5250  LPRINT "   - Concrete Crushing Strength  f'c ="FC" kg/cm2  "
  25. 5260  LPRINT "   - Reinf' Steel Yield Stress   fy  ="FY" kg/cm2  "
  26. 5270  LPRINT CHR$(27)"G"
  27. 5280  LPRINT "  ** BEAM SECTION DIMENSIONS **  "
  28. 5290  LPRINT CHR$(27)"H";"  -----------------------------  "
  29. 5300  LPRINT "   - Width  b  ="B" cm" TAB(28) "- Height  h  ="H" cm" TAB(54) "- Eff. Depth  d  ="D" cm"
  30. 5310  LPRINT H$
  31. 5320  LPRINT "  Max. Sect. Capacity Ku ="KU(MAX.) TAB(40) " Max. Moment Capacity Mu ="MU(MAX.)" t.m"
  32. 5330  LPRINT "  Min. Steel Ratio    Ps ="PS(MIN.) TAB(40) " Max. Steel Ratio     Ps ="PSX(MAX.)
  33. 5340  LPRINT "  Min. Steel Area     As ="AS(MIN.)" cm2" TAB(40) " Max. Steel Area      As ="ASX(MAX.)" cm2"
  34. 5350  LPRINT H$ :LPRINT
  35. 5360  LPRINT CHR$(14) " STRUCTURAL ANALYSIS"
  36. 5370  LPRINT
  37. 5380  ON N GOSUB 13200,13800
  38. 5390  IF N>=3 THEN GOSUB 14500
  39. 5400  LPRINT CHR$(12)
  40. 5410  IF CNK=3 GOTO 5872
  41. 5500  '------------------------------------------------------ Print Shear Design
  42. 5510  GOSUB 15500
  43. 5520  I=1
  44. 5530  IF YCS$(I)="Y" OR YCS$(I)="y" THEN GOSUB 16000 :GOTO 5870
  45. 5540  IF I<N THEN I=I+1 :GOTO 5530
  46. 5750  FOR I= 1 TO N
  47. 5755  IF I=5 THEN LPRINT CHR$(12) :GOSUB 15500
  48. 5760  LPRINT CHR$(27)"G";
  49. 5770  LPRINT "   **  SPAN  No."I" **  "
  50. 5780  LPRINT CHR$(27)"H";"   ----------------------"
  51. 5790  LPRINT "    Shear Force  Vu  at  (d) from face of supp. ="VF(I)" ton"
  52. 5800  LPRINT "    Shear Stress vu  =   Vu / ( 0.85 * b * d )  ="VST(I)" kg/cm2"
  53. 5810  LPRINT
  54. 5815  IF VST(I)<=VSCS THEN LPRINT "    Since  vu < vcs  ; USE  MIN. STIRRUPS  REINF' " :LPRINT :GOTO 5860
  55. 5820  LPRINT "    For "S(I)" cm Spacing" TAB(53) " Av (requ.) ="AVR(I)" cm2"
  56. 5830  LPRINT CHR$(27)"G";
  57. 5840  LPRINT "    USE  [ "NV(I)" STR. "BRDB$;DV(I)" mm "CHR$(64);S(I)" cm  SPACING ]" TAB(55) " Av (prov.) ="AVP(I)" cm2"
  58. 5850  LPRINT CHR$(27) "H"
  59. 5860  NEXT I
  60. 5870  LPRINT CHR$(12)
  61. 5872  PRINT "     * * * * * * * * * * * *  D O N E  * * * * * * * * * * * *  *"
  62. 5874  PRINT
  63. 5900  '-------------------------------------------------------End of Beam Design
  64. 5910  PRINT "     DO YOU HAVE OTHER BEAMS TO DESIGN              (Y/N) ?  ";
  65. 5920  Y$=INKEY$ :IF Y$<>"Y" AND Y$<>"y" AND Y$<>"N" AND Y$<>"n" THEN 5920
  66. 5930  IF Y$="Y" OR Y$="y" THEN PRINT "  YES" :CHAIN "CONTBEAM",10
  67. 5940  IF Y$="N" OR Y$="n" THEN PRINT "  NO " :PRINT :PRINT "       [  YOU WILL BE SEND BACK TO THE  RCDESIGN  MAIN MENU   ]  " :CHAIN "RCDESIGN",2500
  68. 5990  END  '------------------------------------------------------End of Running
  69. 6000  '-------------------- **** SUBROUTINES **** ------------------------------
  70. 13200  '------------------- SUBROUTINE : Print  Data & Results  * ONE SPAN BEAM
  71. 13210  AD$=STRING$(XXT,95) :AE$=CHR$(124) :AF$=STRING$(XXT,84) :AG$=CHR$(65)+CHR$(8)+CHR$(124)
  72. 13220  AX$=CHR$(43) :AN$=STRING$(5,45)
  73. 13230  IF FY<=3000 THEN BRDA$=CHR$(239)+CHR$(8)+CHR$(47) ELSE BRDA$=CHR$(111)+CHR$(8)+CHR$(84)
  74. 13240  LPRINT TAB(4)"SPAN  LOAD     ..(t/m)......";
  75. 13250  IF WL<=0 GOTO 13270
  76. 13260  LPRINT TAB(ZA) WL;
  77. 13270  LPRINT TAB(ZC) W(1);
  78. 13280  IF WR<=0 GOTO 13300
  79. 13290  LPRINT TAB(ZE) WR
  80. 13300  LPRINT
  81. 13310  LPRINT TAB(36) AF$;
  82. 13320  LPRINT CHR$(27);"3";CHR$(12);TAB(36) AD$
  83. 13325  LPRINT
  84. 13330  LPRINT TAB(ZB) AG$ TAB(ZD) AG$
  85. 13340  LPRINT CHR$(27);"2"
  86. 13350  LPRINT TAB(4)"SPAN  LENGTH     ..(m)......";
  87. 13360  IF LL<=0 GOTO 13380
  88. 13370  LPRINT TAB(36) AX$ TAB(ZA) LL;
  89. 13380  LPRINT TAB(ZB)AX$;AN$ TAB(ZC) L(1) TAB(ZD-5) AN$;AX$;
  90. 13390  IF LR<=0 GOTO 13410
  91. 13400  LPRINT TAB(ZE) LR TAB(36+XXT-1) AX$
  92. 13410  LPRINT :LPRINT :LPRINT
  93. 13420  LPRINT TAB(4)"NEGATIVE MOMENT ..(t.m)....."TAB(ZB-2) -MNL(1) TAB(ZD-2) MNR(1)
  94. 13422  IF DFS$="N" OR DFS$="n" GOTO 13430
  95. 13424  LPRINT TAB(4)"Mu -ve @ FACE OF SUPPORT ..."TAB(ZB-2) MNF(1) TAB(ZD-2) MNF(2)
  96. 13430  LPRINT TAB(36) AD$
  97. 13440  LPRINT TAB(ZB) AG$ TAB(ZD) AG$
  98. 13450  LPRINT TAB(4)"SUPP. REACTIONS  ..(t)......";
  99. 13460  IF LL<=0 GOTO 13480
  100. 13470  LPRINT TAB(ZB-7) RLC;
  101. 13480  LPRINT TAB(ZB) AE$ TAB(ZB+1) RL(1) TAB(ZD-7) RR(1) TAB(ZD) AE$;
  102. 13490  IF LR<=0 GOTO 13510
  103. 13500  LPRINT TAB(ZD+1) RRC
  104. 13510  LPRINT TAB(ZB) AE$ TAB(ZD) AE$
  105. 13520  LPRINT TAB(4)"Lft Dstc. of M+max..(m)....."TAB(ZB) AE$ TAB(ZC) XL(1) TAB(ZD) AE$
  106. 13530  LPRINT TAB(ZB) AE$ TAB(ZD) AE$
  107. 13540  LPRINT TAB(4)"POSITIVE MOMENT ..(t.m)....."TAB(ZB) AE$ TAB(ZC) MP(1) TAB(ZD) AE$
  108. 13550  LPRINT TAB(ZB) AE$ TAB(ZD) AE$
  109. 13560  LPRINT TAB(4)"CUT OFF POINTS  ..(m)......." TAB(ZB) AE$ TAB(ZB+1) XCL(1) TAB(ZD-6) XCR(1) TAB(ZD) AE$
  110. 13570  LPRINT :LPRINT
  111. 13580  LPRINT CHR$(14) " FLEXURAL REINF' "
  112. 13590  LPRINT
  113. 13600  LPRINT TAB(4)"As (req) TOP    ..(cm2)....."TAB(ZB-2) ASN(1) TAB(ZD-2) ASN(2)
  114. 13610  LPRINT TAB(36) AD$
  115. 13620  LPRINT TAB(4)"As (req) BOTTOM ..(cm2)....."TAB(ZB) AG$ TAB(ZC) ASP(1) TAB(ZD) AG$
  116. 13630  LPRINT :LPRINT
  117. 13640  LPRINT TAB(4)"REINF' -    TOP ............"TAB(ZB-2);NBN(1);BRDA$;DIAN(1)"mm" TAB(ZD-5);NBN(2);BRDA$;DIAN(2)"mm"
  118. 13650  LPRINT TAB(36) AD$
  119. 13660  LPRINT TAB(4)"REINF' - BOTTOM ............"TAB(ZB) AG$ TAB(ZC);NBP(1);BRDA$;DIAP(1)"mm" TAB(ZD+1) AG$
  120. 13670  RETURN
  121. 13800  '------------------ SUBROUTINE : Print  Data & Results  * TWO SPANS BEAM
  122. 13810  AD$=STRING$(XXT,95) :AE$=CHR$(124) :AF$=STRING$(XXT,84) :AG$=CHR$(65)+CHR$(8)+CHR$(124)
  123. 13820  AX$=CHR$(43) :AN$=STRING$(3,45)
  124. 13830  IF FY<=3000 THEN BRDA$=CHR$(239)+CHR$(8)+CHR$(47) ELSE BRDA$=CHR$(111)+CHR$(8)+CHR$(84)
  125. 13840  LPRINT TAB(2)"SPAN  LOAD  (t/m)";
  126. 13850  IF WL<=0 GOTO 13870
  127. 13860  LPRINT TAB(ZA) WL;
  128. 13870  LPRINT TAB(ZC) W(1) TAB(ZG) W(2);
  129. 13880  IF WR<=0 GOTO 13900
  130. 13890  LPRINT TAB(ZE) WR
  131. 13900  LPRINT
  132. 13910  LPRINT TAB(23) AF$;
  133. 13920  LPRINT CHR$(27);"3";CHR$(12);TAB(23) AD$
  134. 13925  LPRINT
  135. 13930  LPRINT TAB(ZB) AG$ TAB(ZF) AG$ TAB(ZD) AG$
  136. 13940  LPRINT CHR$(27);"2"
  137. 13950  LPRINT TAB(2) "SPAN  LENGTH  (m)";
  138. 13960  IF LL<=0 GOTO 13980
  139. 13970  LPRINT TAB(23) AX$ TAB(ZA) LL;
  140. 13980  LPRINT TAB(ZB)AX$;AN$ TAB(ZC) L(1) TAB(ZF-3) AN$;AX$;AN$ TAB(ZG) L(2) TAB(ZD-3) AN$;AX$;
  141. 13990  IF LR<=0 GOTO 14010
  142. 14000  LPRINT TAB(ZE) LR TAB(ZD+XXR) AX$
  143. 14010  LPRINT :LPRINT :LPRINT
  144. 14020  LPRINT TAB(2)"NGTV.MOMENT (t.m)"TAB(ZB-2) -MNL(1) TAB(ZF-2) MNR(1) TAB(ZD-2) MNR(2)
  145. 14022  IF DFS$="N" OR DFS$="n" GOTO 14030
  146. 14024  LPRINT TAB(2)"Mu-@ FACE OF SUPP"TAB(ZB-2) MNF(1) TAB(ZF-2) MNF(2) TAB(ZD-2) MNF(3)
  147. 14030  IF RDC<=0 THEN LPRINT TAB(4)"(Exact values)";:GOTO 14050
  148. 14040  LPRINT TAB(4)"(Redc.by"RDC"%)";
  149. 14050  LPRINT TAB(23) AD$
  150. 14060  LPRINT TAB(ZB) AG$ TAB(ZF) AG$ TAB(ZD) AG$
  151. 14070  LPRINT TAB(2)"SUPP.REACTION (t)";
  152. 14080  IF LL<=0 GOTO 14100
  153. 14090  LPRINT TAB(ZB-7) RLC;
  154. 14100  LPRINT TAB(ZB) AE$ TAB(ZB+1) RL(1) TAB(ZF-7) RR(1) TAB(ZF) AE$ TAB(ZF+1) RL(2) TAB(ZD-7) RR(2) TAB(ZD) AE$;
  155. 14110  IF LR<=0 GOTO 14130
  156. 14120  LPRINT TAB(ZD+1) RRC
  157. 14130  LPRINT TAB(ZB) AE$ TAB(ZF) AE$ TAB(ZD) AE$
  158. 14140  LPRINT TAB(2)"Lt Dst.of M+mx(m)"TAB(ZB) AE$ TAB(ZC) XL(1) TAB(ZF) AE$ TAB(ZG) XL(2) TAB(ZD) AE$
  159. 14150  LPRINT TAB(ZB) AE$ TAB(ZF) AE$ TAB(ZD) AE$
  160. 14160  LPRINT TAB(2)"PSTV.MOMENT (t.m)"TAB(ZB) AE$ TAB(ZC) MP(1) TAB(ZF) AE$ TAB(ZG) MP(2) TAB(ZD) AE$
  161. 14170  LPRINT TAB(ZB) AE$ TAB(ZF) AE$ TAB(ZD) AE$
  162. 14180  LPRINT TAB(2)"CUTOFF POINTS (m)" TAB(ZB) AE$ TAB(ZB+1) XCL(1) TAB(ZF-6) XCR(1) TAB(ZF) AE$ TAB(ZF+1) XCL(2) TAB(ZD-6) XCR(2) TAB(ZD) AE$
  163. 14190  LPRINT :LPRINT
  164. 14200  LPRINT CHR$(14) " FLEXURAL REINF' "
  165. 14210  LPRINT
  166. 14220  LPRINT TAB(2)"As (req)TOP (cm2)"TAB(ZB-2) ASN(1) TAB(ZF-2) ASN(2) TAB(ZD-2) ASN(3)
  167. 14230  LPRINT TAB(23) AD$
  168. 14240  LPRINT TAB(2)"As (req)BOT (cm2)"TAB(ZB) AG$ TAB(ZC) ASP(1) TAB(ZF) AG$ TAB(ZG) ASP(2) TAB(ZD) AG$
  169. 14250  LPRINT :LPRINT
  170. 14260  LPRINT TAB(2)"REINF' -    TOP  "TAB(ZB-2);NBN(1);BRDA$;DIAN(1)"mm" TAB(ZF-3);NBN(2);BRDA$;DIAN(2)"mm" TAB(ZD-5);NBN(3);BRDA$;DIAN(3)"mm"
  171. 14270  LPRINT TAB(23) AD$
  172. 14280  LPRINT TAB(2)"REINF' - BOTTOM  "TAB(ZB) AG$ TAB(ZC);NBP(1);BRDA$;DIAP(1)"mm" TAB(ZF) AG$ TAB(ZG);NBP(2);BRDA$;DIAP(2)"mm" TAB(ZD) AG$
  173. 14290  RETURN
  174. 14500  '---------------- SUBROUTINE : Print  Data & Results  * 3 - 7 SPANS BEAM
  175. 14510  AD$=STRING$(XXT,95) :AE$=CHR$(124) :AF$=STRING$(XXT,84) :AG$=CHR$(65)+CHR$(8)+CHR$(124)
  176. 14520  AX$=CHR$(43) :AN$=STRING$(2,45)
  177. 14530  IF FY<=3000 THEN BRDA$=CHR$(239)+CHR$(8)+CHR$(47) ELSE BRDA$=CHR$(111)+CHR$(8)+CHR$(84)
  178. 14540  LPRINT TAB(1)"W  (t/m)";
  179. 14550  IF WL<=0 GOTO 14570
  180. 14560  LPRINT TAB(8) WL;
  181. 14570  FOR I= 1 TO N :LPRINT  TAB(16+I*XX1-INT(XX1/2)-4) W(I); :NEXT
  182. 14580  IF WR<=0 GOTO 14600
  183. 14590  LPRINT TAB(16+XX-1) WR
  184. 14600  LPRINT
  185. 14610  LPRINT TAB(ZA) AF$;
  186. 14620  LPRINT CHR$(27);"3";CHR$(12);TAB(ZA) AD$
  187. 14625  LPRINT
  188. 14630  FOR I= 1 TO N+1 :LPRINT TAB(16+(I-1)*XX1-1) AG$; :NEXT
  189. 14640  LPRINT CHR$(27);"2"
  190. 14650  LPRINT TAB(1)"L   (m)";
  191. 14660  IF LL<=0 GOTO 14680
  192. 14670  LPRINT TAB(8) AX$ TAB(9) LL;
  193. 14680  FOR I= 1 TO N :LPRINT TAB(16+(I-1)*XX1-1) AX$ TAB(16+I*XX1-INT(XX1/2)-4) L(I); :NEXT :LPRINT TAB(16+XX-2) AX$;
  194. 14690  IF LR<=0 GOTO 14710
  195. 14700  LPRINT TAB(16+XX-1) LR TAB(ZA+XXT-1) AX$
  196. 14710  LPRINT :LPRINT :LPRINT
  197. 14720  LPRINT TAB(1)"Mu- (t.m)";
  198. 14730  IF RDC<=0 THEN LPRINT " (Exact values)":GOTO 14750
  199. 14740  LPRINT " (Reduced by "RDC" % )"
  200. 14750  LPRINT TAB(12) -MNL(1);
  201. 14760  FOR I= 1 TO N :LPRINT TAB(16+I*XX1-4) MNR(I); :NEXT
  202. 14762  IF DFS$="N" OR DFS$="n" GOTO 14770
  203. 14764  LPRINT TAB(1)"M-@FACE"TAB(12) MNF(1);
  204. 14766  FOR I= 1 TO N :LPRINT TAB(16+I*XX1-4) MNF(I+1); :NEXT
  205. 14770  LPRINT TAB(ZA) AD$
  206. 14780  FOR I= 1 TO N+1 :LPRINT TAB(16+(I-1)*XX1-1) AG$; :NEXT
  207. 14790  LPRINT TAB(1)"R.Lft ";
  208. 14800  FOR I= 1 TO N :LPRINT TAB(16+(I-1)*XX1-1) AE$ TAB(16+(I-1)*XX1) RL(I); :NEXT  :LPRINT TAB(16+XX-2) AE$;
  209. 14810  IF LR<=0 GOTO 14830
  210. 14820  LPRINT TAB(16+XX-1) RRC
  211. 14830  LPRINT TAB(1)"R.Rgt ";
  212. 14840  IF LL<=0 GOTO 14860
  213. 14850  LPRINT TAB(8) RLC;
  214. 14860  FOR I= 1 TO N :LPRINT TAB(16+(I-1)*XX1-1) AE$ TAB(16+I*XX1-8) RR(I); :NEXT  :LPRINT TAB(16+XX-2) AE$
  215. 14870  FOR I= 1 TO N+1 :LPRINT TAB(16+(I-1)*XX1-1) AE$; :NEXT
  216. 14880  LPRINT TAB(1)"XL- m ";
  217. 14890  FOR I= 1 TO N :LPRINT TAB(16+(I-1)*XX1-1) AE$ TAB(16+I*XX1-INT(XX1/2)-4) XL(I); :NEXT :LPRINT TAB(16+XX-2) AE$
  218. 14900  FOR I= 1 TO N+1 :LPRINT TAB(16+(I-1)*XX1-1) AE$; :NEXT
  219. 14910  LPRINT TAB(1)"M+ t.m";
  220. 14920  FOR I= 1 TO N :LPRINT TAB(16+(I-1)*XX1-1) AE$ TAB(16+I*XX1-INT(XX1/2)-4) MP(I); :NEXT :LPRINT TAB(16+XX-2) AE$
  221. 14930  FOR I= 1 TO N+1 :LPRINT TAB(16+(I-1)*XX1-1) AE$; :NEXT
  222. 14940  LPRINT TAB(1)"CUT Pt.Lft";
  223. 14950  FOR I= 1 TO N :LPRINT TAB(16+(I-1)*XX1-1) AE$ TAB(16+(I-1)*XX1) XCL(I); :NEXT  :LPRINT TAB(16+XX-2) AE$
  224. 14960  LPRINT TAB(1)"CUT Pt.Rgt";
  225. 14970  FOR I= 1 TO N :LPRINT TAB(16+(I-1)*XX1-1) AE$ TAB(16+I*XX1-8) XCR(I); :NEXT  :LPRINT TAB(16+XX-2) AE$
  226. 14980  LPRINT :LPRINT
  227. 14990  LPRINT CHR$(14) " FLEXURAL REINF' "
  228. 15000  LPRINT
  229. 15010  LPRINT TAB(1)"As- cm2";
  230. 15020  FOR I= 1 TO N+1 :LPRINT TAB(16+(I-1)*XX1-4) ASN(I); :NEXT
  231. 15030  LPRINT TAB(ZA) AD$
  232. 15040  LPRINT TAB(1)"As+ cm2";
  233. 15050  FOR I= 1 TO N :LPRINT TAB(16+(I-1)*XX1-1) AE$ TAB(16+I*XX1-INT(XX1/2)-4) ASP(I); :NEXT :LPRINT TAB(16+XX-2) AE$
  234. 15060  LPRINT :LPRINT
  235. 15070  LPRINT TAB(1)"RNF' TP";
  236. 15080  FOR I= 1 TO N+1 :LPRINT TAB(16+(I-1)*XX1-5) NBN(I);BRDA$;DIAN(I); :NEXT
  237. 15090  LPRINT TAB(ZA) AD$
  238. 15100  LPRINT TAB(1)"RNF' BT ";
  239. 15110  FOR I= 1 TO N :LPRINT  TAB(16+I*XX1-INT(XX1/2)-5) NBP(I);BRDA$;DIAP(I); :NEXT
  240. 15120  RETURN
  241. 15500  '----------------------------------------------------- Print Shear Design
  242. 15505  LPRINT CHR$(14)"Arabian Consulting Engineering Services"
  243. 15510  LPRINT "P. O. Box  146                                           Riyadh - Saudi Arabia"
  244. 15515  LPRINT H$
  245. 15520  LPRINT CHR$(14)" PROJECT: "PRJ$
  246. 15525  LPRINT
  247. 15530  LPRINT "  BUILDING    : "BLD$ TAB(58)"PAGE No.:"
  248. 15535  LPRINT "  DESIGNED BY : "DSR$ TAB(31)"/ CHECKED BY : "TAB(58)"DATE    : "DATE$
  249. 15540  LPRINT :LPRINT H$
  250. 15545  LPRINT "  RCDESIGN PROGRAM PREPARED BY : Amjad J.El-Sha'ir, P.O.Box 926447 Amman-Jordan"
  251. 15550  LPRINT "  THIS COPY TO BE USED ONLY BY : Arabian Consulting Engineering Services  K.S.A"
  252. 15555  LPRINT H$
  253. 15560  LPRINT CHR$(14) " CONTINUOUS BEAM DESIGN "TAB(29)"B"NMB"-B"NMBL
  254. 15570  LPRINT H$
  255. 15580  LPRINT TAB(50)"Continued from previous page"
  256. 15600  LPRINT CHR$(27)"G";
  257. 15610  LPRINT "  ** CONCRETE & STEEL PROPERTIES **  "
  258. 15620  LPRINT CHR$(27)"H";"  ---------------------------------  "
  259. 15630  LPRINT "   - Conc. Strength  f'c="FC"kg/cm2  -  Stirrups Yield Stress  fy="FYS"kg/cm2"
  260. 15640  LPRINT
  261. 15650  LPRINT CHR$(27)"G";
  262. 15660  LPRINT "  ** BEAM SECTION DIMENSIONS **  "
  263. 15670  LPRINT CHR$(27)"H";"  -----------------------------  "
  264. 15680  LPRINT "   - Width  b  ="B" cm" TAB(28) "- Height  h  ="H" cm" TAB(54) "- Eff. Depth  d  ="D" cm"
  265. 15690  LPRINT H$
  266. 15700  LPRINT " Max. Shear Stress on conc.(without stirrups)  vc =0.53 *SQR(f'c)= "VSC" kg/cm2"
  267. 15710  LPRINT " Max. Shear Stress on Beam    (with stirrups)  vu =2.50 *SQR(f'c)="VSM" kg/cm2"
  268. 15720  LPRINT H$:LPRINT
  269. 15730  LPRINT CHR$(14)" SHEAR DESIGN"
  270. 15740  LPRINT
  271. 15750  LPRINT "   Min. required Area of shear stirrups reinf' = 3.5 x b x S / fy ="AVM"cm2"
  272. 15755  LPRINT CHR$(27)"G";
  273. 15760  LPRINT "   Use    [  "NVM" STR. "BRDB$;DVM"mm "CHR$(64);SMAX"cm SPACING  ]       Av (prov.) ="AVPM"cm2"
  274. 15765  LPRINT CHR$(27) "H";
  275. 15770  LPRINT "   Shear Stress the Section with min. Stirrups can take = vcs ="VSCS"kg/cm2"
  276. 15780  LPRINT
  277. 15790  RETURN
  278. 15900  -16000
  279. 16000  '-------------------------------- SUBROUTINE TO PRINT VARIABLE STIRRUPS
  280. 16100  LPRINT " -----------------------------------------------------------------------------"
  281. 16110  LPRINT " |Span| Side|  Vu   |  vu   | Avr  |    Stirrups to be used    | Avp  | l s  |"
  282. 16120  LPRINT " | No.| from|  ton  | kg/cm2|  cm2 |     near the support      | cm2  |  m   |"
  283. 16130  LPRINT " -----------------------------------------------------------------------------"
  284. 16140  SH1$  =" | #  |\   \|###.## | ##.## |##.## | # STR. \ \ ## mm @ ## cm SPC|##.## | #.## |"
  285. 16145  FOR I=1 TO N
  286. 16150  LPRINT USING SH1$;I;"LEFT";VL(I);VSTL(I);AVRL(I);NVL(I);BRDB$;DVL(I);SL(I);AVPL(I);XSHL(I)
  287. 16160  LPRINT USING SH1$;I;"RIGHT";VR(I);VSTR(I);AVRR(I);NVR(I);BRDB$;DVR(I);SR(I);AVPR(I);XSHR(I)
  288. 16170  LPRINT " -----------------------------------------------------------------------------"
  289. 16180  NEXT
  290. 16190  LPRINT
  291. 16200  LPRINT "   Vu  = Ultimate Shear Force  at (d) from face of support "
  292. 16210  LPRINT "   vu  = Ultimate Shear Stress at (d) from face of support "
  293. 16220  LPRINT "   Avr = Area of Shear Stirrups required "
  294. 16230  LPRINT "   Avp = Area of Shear Stirrups provided"
  295. 16240  LPRINT "   l s = Distance from face of support where Stirrups could be changed to min."
  296. 16300  RETURN
  297.